home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / Developer Essentials Jul 90 / Programming / MPW Interfaces & Libraries 3.1 / AIncludes / PackMacs.a < prev    next >
Encoding:
Text File  |  1989-10-13  |  12.7 KB  |  548 lines  |  [TEXT/MPS ]

  1. ; Version: 1.93
  2. ; Created: Thursday, April 20, 1989 at 12:41:22 PM
  3. ;
  4. ; File: PackMacs.a
  5. ;
  6. ; Assembler Interface to the Macintosh Libraries
  7. ; Copyright Apple Computer, Inc. 1984-1988
  8. ; All Rights Reserved
  9. ;
  10. ;--------------------------------------------------------------------
  11. ;
  12. ; Package Equates -- This file defines the high-level equates for the
  13. ; Standard File, Disk Initialization, International Utilities, and
  14. ; Binary-Decimal Conversion packages, and the List Manager. The equates
  15. ; for the Floating-PointArithmetic and Transcendental Functions packages
  16. ; can be found in SANEMacs.a.
  17. ;--------------------------------------------------------------------
  18.  
  19.  
  20. listMgr         EQU         0                        ; List Manager
  21. ; 1 reserved for use by Apple Computer, Inc.
  22. dskInit         EQU         2                        ; Disk Initialization
  23. stdFile         EQU         3                        ; Standard File
  24. flPoint         EQU         4                        ; Floating-Point Arithmetic
  25. trFunc            EQU         5                        ; Transcendental Functions
  26. intUtil         EQU         6                        ; International Utilities
  27. bdConv            EQU         7                        ; Binary/Decimal Conversion
  28.  
  29. ; Equates for STANDARD FILE PACKAGE
  30. putDlgID        EQU         -3999                    ; SFPutFile dialog template ID
  31. getDlgID        EQU         -4000                    ; SFGetFile dialog template ID
  32. putSave         EQU         1                        ; save button
  33. putCancel        EQU         2                        ; cancel button
  34. putEject        EQU         5                        ; eject button
  35. putDrive        EQU         6                        ; drive button
  36. putName         EQU         7                        ; editTExt item for file name
  37.  
  38.  
  39. getOpen         EQU         1                        ; open button
  40. getCancel        EQU         3                        ; cancel button
  41. getEject        EQU         5                        ; eject button
  42. getDrive        EQU         6                        ; drive button
  43. getNmList        EQU         7                        ; userItem for file name list
  44. getScroll        EQU         8                        ; userItem for scroll bar
  45.  
  46. ; Reply record data structure
  47. rGood            EQU         0                        ; ignore command if FALSE
  48. rType            EQU         2                        ; file type
  49. rVolume         EQU         6                        ; volume reference number
  50. rVersion        EQU         8                        ; file's version number
  51. rName            EQU         10                        ; file name
  52.  
  53. ; Routine selectors
  54. SFPutFile        EQU         1
  55. SFPPutFile        EQU         3
  56. SFGetFile        EQU         2
  57. SFPGetFile        EQU         4
  58.  
  59. ; Equates for DISK INITIALIZATION PACKAGE
  60.  
  61. ; Routine selectors
  62. DILoad            EQU         2
  63. DIUnload        EQU         4
  64. DIBadMount        EQU         0
  65. DIFormat        EQU         6
  66. DIVerify        EQU         8
  67. DIZero            EQU         10
  68.  
  69. ; Result codes are defined in SysEqu.a
  70.  
  71. ; Equates for INTERNATIONAL PACKAGE
  72.  
  73. ; Routine selectors
  74. IUGetIntl        EQU         6
  75. IUSetIntl        EQU         8
  76. IUDateString    EQU         0
  77. IUDatePString    EQU         14
  78. IUTimeString    EQU         2
  79. IUTimePString    EQU         16
  80. IUMetric        EQU         4
  81. IUMagString     EQU         10
  82. IUMagIDString    EQU         12
  83.  
  84.  
  85. ; Data structures for International Utilities
  86. ; International 0 record
  87.  
  88. decimalPt        EQU         0                        ; ASCII character for decimal point
  89. thousSep        EQU         1                        ; ASCII character for thousand separator
  90. listSep         EQU         2                        ; ASCII character for list separator
  91. currSym         EQU         3                        ; ASCII for currency symbol (3 bytes long)
  92. currFmt         EQU         6                        ; currency format flags
  93. dateOrder        EQU         7                        ; short date form - DMY,YMD, or MDY
  94. shrtDateFmt     EQU         8                        ; date elements format flag
  95. dateSep         EQU         9                        ; ASCII for date separator
  96. timecycle        EQU         10                        ; indicates 12 or 24 hr cycle
  97. timeFmt         EQU         11                        ; time elements format flags
  98. mornStr         EQU         12                        ; ASCII for trailing string from 0:00 to 11:59
  99. eveStr            EQU         16                        ; ASCII for trailing string from 12:00 to 23:59
  100. timeSep         EQU         20                        ; ASCII for the time separator
  101. timeSuff        EQU         21                        ; suffix string used in 24 hr mode
  102. metricSys        EQU         29                        ; indicates metric or English system
  103. intl0Vers        EQU         30                        ; version: high byte = country. low byte = vers
  104.  
  105.  
  106. ; International 1 record
  107. days            EQU         0
  108. months            EQU         112
  109. suppressDay     EQU         304
  110. lngDateFmt        EQU         305
  111. dayLeading0     EQU         306
  112. abbrLen         EQU         307
  113. st0             EQU         308
  114. st1             EQU         312
  115. st2             EQU         316
  116. st3             EQU         320
  117. st4             EQU         324
  118. intl1Vers        EQU         328
  119. localRtn        EQU         330
  120.  
  121.  
  122. ; Constants for manipulation of international resources
  123. ; Way to specify desired date format
  124. shortDate        EQU         0
  125. longDate        EQU         1
  126. abbrevDate        EQU         2
  127.  
  128. ; Masks used for setting and testing currency format flags
  129. currLeadingZ    EQU         128                     ; set if leading zero
  130. currTrailingZ    EQU         64                        ; set if trailing zero
  131. currNegSym        EQU         32                        ; set if minus sign for negative num, reset if parentheses}
  132. currSymLead     EQU         16                        ; set if currency symbol leads, reset if trails}
  133. zeroCycle        EQU         1                        ; 0:00 AM/PM format
  134.  
  135. ; Constants specifying absolute value of short date form
  136. mdy             EQU         0                        ; month,day,year
  137. dmy             EQU         1                        ; day,month,year
  138. ymd             EQU         2                        ; year,month,day
  139. myd             EQU         3                        ; month, day, year
  140. dym             EQU         4                        ; day, year, month
  141. ydm             EQU         5                        ; year, day, month
  142. longDay         EQU         0                        ; day of month
  143. longWeek        EQU         1                        ; day of week
  144. longMonth        EQU         2                        ; month of year
  145. longYear        EQU         3                        ; year
  146. supDay            EQU         1                        ; suppress day of month
  147. supWeek         EQU         2                        ; suppress day of week
  148. supMonth        EQU         4                        ; suppress month
  149. supYear         EQU         8                        ; suppress year
  150.  
  151. ; Masks used for date element format flags
  152. century         EQU         128                     ; set if century, reset if no century
  153. mntLdingZ        EQU         64                        ; set if leading 0 for month
  154. dayLdingZ        EQU         32                        ; set if leading zero for day
  155.  
  156. ; Masks used for time element format flags
  157. hrLeadingZ        EQU         128                     ; set if leading zero for hours
  158. minLeadingZ     EQU         64                        ; set if leading zero for minutes
  159. secLeadingZ     EQU         32                        ; set if leading zero for seconds
  160.  
  161. ; Country codes for version numbers
  162. verUS            EQU         0
  163. verFrance        EQU         1
  164. verBritain        EQU         2
  165. verGermany        EQU         3
  166. verItaly        EQU         4
  167. verNetherlands    EQU         5
  168. verBelgiumLux    EQU         6
  169. verSweden        EQU         7
  170. verSpain        EQU         8
  171. verDenmark        EQU         9
  172. verPortugal     EQU         10
  173. verFrCanada     EQU         11
  174. verNorway        EQU         12
  175. verIsrael        EQU         13
  176. verJapan        EQU         14
  177. verAustralia    EQU         15
  178. verArabia        EQU         16
  179. verFinland        EQU         17
  180. verFrSwiss        EQU         18
  181. verGrSwiss        EQU         19
  182. verGreece        EQU         20
  183. verIceland        EQU         21
  184. verMalta        EQU         22
  185. verCyprus        EQU         23
  186. verTurkey        EQU         24
  187. verYugoslavia    EQU         25
  188.  
  189.  
  190.  
  191. ; Equates for BINARY-DECIMAL CONVERSION PACKAGE
  192.  
  193. ; Routine selectors
  194. numToString     EQU         0
  195. stringToNum     EQU         1
  196.  
  197.  
  198. ; List Manager Equates
  199.  
  200. rView            EQU         0                        ; Rect in which we are viewed
  201. port            EQU         8                        ; Grafport that owns us
  202. indent            EQU         12                        ; Indent line/fields in cell
  203. cellSize        EQU         16                        ; Cell size
  204. visible         EQU         20                        ; lines/fields visible bounds
  205. vScroll         EQU         28                        ; vertical scroll bar (or NIL)
  206. hScroll         EQU         32                        ; horizontal scroll bar (or NIL)
  207. selFlags        EQU         36                        ; Multiple selections allowed
  208. lActive         EQU         37                        ; active or inactive boolean
  209. lReserved        EQU         38                        ; private flags used internally
  210. listFlags        EQU         39                        ; autoscrolling flags, etc.
  211. clikTime        EQU         40                        ; time of last click
  212. clikLoc         EQU         44                        ; position of last click
  213. mouseLoc        EQU         48                        ; current position of mouse
  214. lClikLoop        EQU         52                        ; routine to call during ListClick
  215. lastClick        EQU         56                        ; the last cell that was clicked in
  216. refCon            EQU         60                        ; reference value
  217. listDefHandle    EQU         64                        ; Handle to list defproc
  218. userHandle        EQU         68                        ; general storage for user
  219. dataBounds        EQU         72                        ; Bounds of lines/fields
  220. cells            EQU         80                        ; Handle to data
  221. maxIndex        EQU         84                        ; index of lastcell + 1
  222. cellArray        EQU         86                        ; offsets to cells
  223. sizeList        EQU         86                        ; size sans selections
  224.  
  225.  
  226. ; these are equates for accessing the SelFlags byte
  227. ; All flags are true if one
  228.  
  229. lOnlyOne        EQU         7                        ; 0 = multiple selections, 1 = one
  230. lExtendDrag     EQU         6                        ; 1 = drag select without shift key
  231. lNoDisjoint     EQU         5                        ; 1 = turn off selections on click
  232. lNoExtend        EQU         4                        ; 1 = don't extend shift selections
  233. lNoRect         EQU         3                        ; 1 = don't grow (shift,drag) selection as rect
  234. lUseSense        EQU         2                        ; 1 = shift should use sense of start cell
  235. lNoNilHilite    EQU         1                        ; 1 = don't hilite empty cells
  236.  
  237.  
  238. ; these are bit numbers within the listFlags byte
  239. ; All flags are true if one
  240.  
  241. lDoVAutoscroll    EQU         1                        ; 1 = allow vertical autoscrolling
  242. lDoHAutoscroll    EQU         0                        ; 1 = allow horizontal autoscrolling
  243.  
  244.  
  245. ; these are the messages sent to a list defproc
  246.  
  247. lInitMsg        EQU         0                        ; tell drawing routines to init themselves
  248. lDrawMsg        EQU         1                        ; draw (and de/select) the indicated data
  249. lHiliteMsg        EQU         2                        ; invert hilite state of specified cell
  250. lCloseMsg        EQU         3                        ; shut down, the list is being disposed
  251.  
  252.  
  253. ; For package invocation
  254. ; First arg is routine selector, second is the trap
  255.  
  256.                 MACRO
  257.                 _PackCall
  258.                 MOVE.W        &SYSLIST[1],-(SP)
  259.                 &SYSLIST[2]
  260.                 ENDM
  261.  
  262. ;QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
  263. ; Disk Initialization
  264. ;QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
  265.  
  266.                 MACRO
  267.                 _DILoad
  268.                 _PackCall    #DILoad,_Pack2
  269.                 ENDM
  270.  
  271.                 MACRO
  272.                 _DIUnLoad
  273.                 _PackCall    #DIUnLoad,_Pack2
  274.                 ENDM
  275.  
  276.                 MACRO
  277.                 _DIBadMount
  278.                 _PackCall    #DIBadMount,_Pack2
  279.                 ENDM
  280.  
  281.                 MACRO
  282.                 _DIFormat
  283.                 _PackCall    #DIFormat,_Pack2
  284.                 ENDM
  285.  
  286.                 MACRO
  287.                 _DIVerify
  288.                 _PackCall    #DIVerify,_Pack2
  289.                 ENDM
  290.  
  291.                 MACRO
  292.                 _DIZero
  293.                 _PackCall    #DIZero,_Pack2
  294.                 ENDM
  295.  
  296. ;QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
  297. ; Standard File
  298. ;QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
  299.  
  300.                 MACRO
  301.                 _SFPutFile
  302.                 _PackCall    #SFPutFile,_Pack3
  303.                 ENDM
  304.  
  305.                 MACRO
  306.                 _SFPPutFile
  307.                 _PackCall    #SFPPutFile,_Pack3
  308.                 ENDM
  309.  
  310.                 MACRO
  311.                 _SFGetFile
  312.                 _PackCall    #SFGetFile,_Pack3
  313.                 ENDM
  314.  
  315.                 MACRO
  316.                 _SFPGetFile
  317.                 _PackCall    #SFPGetFile,_Pack3
  318.                 ENDM
  319.  
  320. ;QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
  321. ; International Utilities
  322. ;QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
  323.  
  324.                 MACRO
  325.                 _IUGetIntl
  326.                 _PackCall    #IUGetIntl,_Pack6
  327.                 ENDM
  328.  
  329.                 MACRO
  330.                 _IUSetIntl
  331.                 _PackCall    #IUSetIntl,_Pack6
  332.                 ENDM
  333.  
  334.                 MACRO
  335.                 _IUDateString
  336.                 _PackCall    #IUDateString,_Pack6
  337.                 ENDM
  338.  
  339.                 MACRO
  340.                 _IUDatePString
  341.                 _PackCall    #IUDatePString,_Pack6
  342.                 ENDM
  343.  
  344.                 MACRO
  345.                 _IUTimeString
  346.                 _PackCall    #IUTimeString,_Pack6
  347.                 ENDM
  348.  
  349.                 MACRO
  350.                 _IUTimePString
  351.                 _PackCall    #IUTimePString,_Pack6
  352.                 ENDM
  353.  
  354.                 MACRO
  355.                 _IUMetric
  356.                 _PackCall    #IUMetric,_Pack6
  357.                 ENDM
  358.  
  359.                 MACRO
  360.                 _IUMagString
  361.                 _PackCall    #IUMagString,_Pack6
  362.                 ENDM
  363.  
  364.                 MACRO
  365.                 _IUMagIDString
  366.                 _PackCall    #IUMagIDString,_Pack6
  367.                 ENDM
  368.  
  369. ;QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
  370. ; Binary-Decimal Conversion
  371. ;QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
  372.  
  373.                 MACRO
  374.                 _StringToNum
  375.                 _PackCall    #stringToNum,_Pack7
  376.                 ENDM
  377.  
  378.                 MACRO
  379.                 _NumToString
  380.                 _PackCall    #numToString,_Pack7
  381.                 ENDM
  382.  
  383. ;---------------------------------------------------------------------------
  384. ;
  385. ; These are the definitions for the List Manager calls
  386. ; implemented as Pack0.
  387. ;
  388. ;---------------------------------------------------------------------------
  389.  
  390. lActivate        EQU         0
  391. lAddColumn        EQU         4
  392. lAddRow         EQU         8
  393. lAddToCell        EQU         12
  394. lAutoScroll     EQU         16
  395. lCellSize        EQU         20
  396. lClick            EQU         24
  397. lClrCell        EQU         28
  398. lDelColumn        EQU         32
  399. lDelRow         EQU         36
  400. lDispose        EQU         40
  401. lDoDraw         EQU         44
  402. lDraw            EQU         48
  403. lFind            EQU         52
  404. lGetCell        EQU         56
  405. lGetSelect        EQU         60
  406. lLastClick        EQU         64
  407. lNew            EQU         68
  408. lNextCell        EQU         72
  409. lRect            EQU         76
  410. lScroll         EQU         80
  411. lSearch         EQU         84
  412. lSetCell        EQU         88
  413. lSetSelect        EQU         92
  414. lSize            EQU         96
  415. lUpdate         EQU         100
  416.  
  417.  
  418.  
  419.                 MACRO
  420.                 _LActivate
  421.                 _PackCall    #lActivate,_Pack0
  422.                 ENDM
  423.  
  424.                 MACRO
  425.                 _LAddColumn
  426.                 _PackCall    #lAddColumn,_Pack0
  427.                 ENDM
  428.  
  429.                 MACRO
  430.                 _LAddRow
  431.                 _PackCall    #lAddRow,_Pack0
  432.                 ENDM
  433.  
  434.                 MACRO
  435.                 _LAddToCell
  436.                 _PackCall    #lAddToCell,_Pack0
  437.                 ENDM
  438.  
  439.                 MACRO
  440.                 _LAutoScroll
  441.                 _PackCall    #lAutoScroll,_Pack0
  442.                 ENDM
  443.  
  444.                 MACRO
  445.                 _LCellSize
  446.                 _PackCall    #lCellSize,_Pack0
  447.                 ENDM
  448.  
  449.                 MACRO
  450.                 _LClick
  451.                 _PackCall    #lClick,_Pack0
  452.                 ENDM
  453.  
  454.                 MACRO
  455.                 _LClrCell
  456.                 _PackCall    #lClrCell,_Pack0
  457.                 ENDM
  458.  
  459.                 MACRO
  460.                 _LDelColumn
  461.                 _PackCall    #lDelColumn,_Pack0
  462.                 ENDM
  463.  
  464.                 MACRO
  465.                 _LDelRow
  466.                 _PackCall    #lDelRow,_Pack0
  467.                 ENDM
  468.  
  469.                 MACRO
  470.                 _LDispose
  471.                 _PackCall    #lDispose,_Pack0
  472.                 ENDM
  473.  
  474.                 MACRO
  475.                 _LDoDraw
  476.                 _PackCall    #lDoDraw,_Pack0
  477.                 ENDM
  478.  
  479.                 MACRO
  480.                 _LDraw
  481.                 _PackCall    #lDraw,_Pack0
  482.                 ENDM
  483.  
  484.                 MACRO
  485.                 _LFind
  486.                 _PackCall    #lFind,_Pack0
  487.                 ENDM
  488.  
  489.                 MACRO
  490.                 _LGetCell
  491.                 _PackCall    #lGetCell,_Pack0
  492.                 ENDM
  493.  
  494.                 MACRO
  495.                 _LGetSelect
  496.                 _PackCall    #lGetSelect,_Pack0
  497.                 ENDM
  498.  
  499.                 MACRO
  500.                 _LLastClick
  501.                 _PackCall    #lLastClick,_Pack0
  502.                 ENDM
  503.  
  504.                 MACRO
  505.                 _LNew
  506.                 _PackCall    #lNew,_Pack0
  507.                 ENDM
  508.  
  509.                 MACRO
  510.                 _LNextCell
  511.                 _PackCall    #lNextCell,_Pack0
  512.                 ENDM
  513.  
  514.                 MACRO
  515.                 _LRect
  516.                 _PackCall    #lRect,_Pack0
  517.                 ENDM
  518.  
  519.                 MACRO
  520.                 _LScroll
  521.                 _PackCall    #lScroll,_Pack0
  522.                 ENDM
  523.  
  524.                 MACRO
  525.                 _LSearch
  526.                 _PackCall    #lSearch,_Pack0
  527.                 ENDM
  528.  
  529.                 MACRO
  530.                 _LSetCell
  531.                 _PackCall    #lSetCell,_Pack0
  532.                 ENDM
  533.  
  534.                 MACRO
  535.                 _LSetSelect
  536.                 _PackCall    #lSetSelect,_Pack0
  537.                 ENDM
  538.  
  539.                 MACRO
  540.                 _LSize
  541.                 _PackCall    #lSize,_Pack0
  542.                 ENDM
  543.  
  544.                 MACRO
  545.                 _LUpdate
  546.                 _PackCall    #lUpdate,_Pack0
  547.                 ENDM
  548.